home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8706a.d64 / list 64 - gen. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  26 lines

  1. 5 REM ** LIST 64 - GENERATOR **
  2. 10 INPUT"STARTADRESSE:  (820) ";SA  :REM STARTADRESSE
  3. 12 INPUT"FARBE WOERTER:   (7) ";FW
  4. 14 INPUT"FARBE STRINGS:   (5) ";FS
  5. 20 FOR X=0 TO 184:READ Q:POKE SA+X,Q:NEXT
  6. 22 POKE SA+102,FW:POKE SA+170,FS
  7. 25 IF SA<>820 THEN HB=INT((SA+15)/256):LB=(SA+15)-HB*256:POKESA+1,LB:POKESA+3,HB
  8. 30 PRINT"ABSPEICHERN (J) ?"
  9. 40 GET TA$:IF TA$="" THEN 40
  10. 50 IF TA$<>"J" THEN 95
  11. 60 OPEN 1,8,2,"LIST 64"+STR$(SA)+",P,W"
  12. 70 SH=INT(SA/256):SL=SA-SH*256
  13. 80 PRINT#1,CHR$(SL);:PRINT#1,CHR$(SH);
  14. 90 FOR X=0 TO 184:PRINT#1,CHR$(PEEK(SA+X));:NEXT:CLOSE1
  15. 95 PRINT"STARTADRESSE: "SA:SYS SA:END
  16. 100 DATA169,67,160,3,141,6,3,140,7,3,169,0,133,247,96,72,165,203,201,60,240
  17. 110 DATA250,201,57,208,14,230,247,169,1,37,247,133,247,165,203,201,57,240
  18. 120 DATA250,165,247,208,4,104,76,26,167,173,134,2,133,2,192,4,208,14,169
  19. 130 DATA32,166,211,224,6,240,6,232,32,71,171,208,246,104,16,60,201,255,240
  20. 140 DATA56,36,15,48,52,56,233,127,170,132,73,160,255,202,240,8,200,185,158
  21. 150 DATA160,16,250,48,245,169,7,141,134,2,200,185,158,160,48,5,32,71,171
  22. 160 DATA208,245,164,73,41,127,32,71,171,72,169,32,32,71,171,104,24,144,43
  23. 170 DATA201,34,240,6,166,15,224,1,208,25,201,58,208,15,72,32,215,170,169
  24. 180 DATA32,162,6,32,71,171,202,208,250,104,32,71,171,24,144,13,162,5,142
  25. 190 DATA134,2,32,71,171,166,2,142,134,2,76,246,166
  26.